/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / think-c / tc-exist.elc

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 74 63 2d 65 78 69 | 73 74 2e 65 6c 63 00 00 |..tc-exi|st.elc..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 00 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 05 06 00 | 00 01 3c a9 9d 55 67 a9 |........|..<..Ug.|
|00000060| 9d 55 68 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Uh.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bd b2 00 00 |........|........|
|00000080| 0a 28 64 65 66 75 6e 20 | 74 63 3a 66 69 6c 65 2d |.(defun |tc:file-|
|00000090| 69 6e 2d 70 72 6f 6a 65 | 63 74 2d 70 20 28 66 69 |in-proje|ct-p (fi|
|000000a0| 6c 65 2d 73 74 72 69 6e | 67 29 20 28 62 79 74 65 |le-strin|g) (byte|
|000000b0| 2d 63 6f 64 65 20 22 d0 | 09 d1 5c 22 18 d2 1a d0 |-code ".|..\"....|
|000000c0| 09 d1 5c 22 1b d0 0d d1 | 5c 22 1c d2 1e 06 d0 09 |..\"....|\"......|
|000000d0| d1 5c 22 1e 07 d2 1e 08 | d2 1e 09 d2 1e 0a d2 1e |.\".....|........|
|000000e0| 0b d0 d3 d1 5c 22 1e 0c | d0 d4 d1 5c 22 1e 0d d0 |....\"..|...\"...|
|000000f0| d4 d1 5c 22 1e 0e d5 d6 | 8d 1e 0f 0a 85 44 00 d7 |..\"....|.....D..|
|00000100| 08 21 88 0e 06 85 4d 00 | d7 0b 21 88 0e 08 85 57 |.!....M.|..!....W|
|00000110| 00 d7 0e 07 21 88 0e 09 | 85 61 00 d7 0e 09 21 88 |....!...|.a....!.|
|00000120| 0e 0a 85 6a 00 d7 0c 21 | 88 0e 0f 2e 0e 87 22 20 |...j...!|......" |
|00000130| 5b 6e 75 6c 6c 2d 64 65 | 73 63 20 73 69 7a 65 6f |[null-de|sc sizeo|
|00000140| 66 2d 41 45 44 65 73 63 | 20 68 61 76 65 2d 6e 75 |f-AEDesc| have-nu|
|00000150| 6c 6c 2d 64 65 73 63 20 | 66 69 6c 65 2d 64 65 73 |ll-desc |file-des|
|00000160| 63 20 72 65 70 6c 79 20 | 73 69 7a 65 6f 66 2d 41 |c reply |sizeof-A|
|00000170| 70 70 6c 65 45 76 65 6e | 74 20 68 61 76 65 2d 66 |ppleEven|t have-f|
|00000180| 69 6c 65 2d 64 65 73 63 | 20 66 69 6c 65 2d 6f 62 |ile-desc| file-ob|
|00000190| 6a 20 68 61 76 65 2d 66 | 69 6c 65 2d 6f 62 6a 20 |j have-f|ile-obj |
|000001a0| 65 76 65 6e 74 20 68 61 | 76 65 2d 72 65 70 6c 79 |event ha|ve-reply|
|000001b0| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 49 44 20 72 | transac|tionID r|
|000001c0| 65 73 75 6c 74 2d 64 61 | 74 61 20 72 65 73 75 6c |esult-da|ta resul|
|000001d0| 74 2d 74 79 70 65 20 72 | 65 73 75 6c 74 2d 73 69 |t-type r|esult-si|
|000001e0| 7a 65 20 72 65 73 75 6c | 74 20 6d 61 6b 65 2d 73 |ze resul|t make-s|
|000001f0| 74 72 69 6e 67 20 30 20 | 6e 69 6c 20 31 20 34 20 |tring 0 |nil 1 4 |
|00000200| 70 61 6e 69 63 20 28 62 | 79 74 65 2d 63 6f 64 65 |panic (b|yte-code|
|00000210| 20 22 de df e0 09 0a 23 | 18 08 41 40 89 13 88 08 | ".....#|..A@....|
|00000220| 41 41 89 14 88 08 40 29 | 21 88 de e1 0d e2 e3 0e |AA....@)|!.......|
|00000230| 06 24 21 88 c8 89 16 07 | 88 de e1 0e 09 0e 0a 0e |.$!.....|........|
|00000240| 0a 47 0e 0b 24 21 88 c8 | 89 16 0c 88 de e4 0e 0d |.G..$!..|........|
|00000250| 0e 06 0e 0e 0e 0b e3 0e | 0f 26 06 21 88 c8 89 16 |........|.&.!....|
|00000260| 10 88 de e5 0b 0e 11 0e | 0f 23 21 88 de e6 0b 0e |........|.#!.....|
|00000270| 12 0e 13 0e 14 5c 5c 0e | 15 0e 16 0e 17 e3 26 07 |.....\\.|......&.|
|00000280| 21 88 c8 89 16 18 88 de | e7 0e 12 0e 19 0e 1a 0e |!.......|........|
|00000290| 1b 0e 1c e8 0e 1d 26 07 | 21 88 e9 ea 0e 1c e3 eb |......&.|!.......|
|000002a0| 23 21 3f 87 22 20 5b 74 | 65 6d 70 20 6b 41 45 43 |#!?." [t|emp kAEC|
|000002b0| 6f 72 65 53 75 69 74 65 | 20 6b 41 45 44 6f 4f 62 |oreSuite| kAEDoOb|
|000002c0| 6a 65 63 74 73 45 78 69 | 73 74 20 65 76 65 6e 74 |jectsExi|st event|
|000002d0| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 49 44 20 74 | transac|tionID t|
|000002e0| 79 70 65 4e 75 6c 6c 20 | 6e 75 6c 6c 2d 64 65 73 |ypeNull |null-des|
|000002f0| 63 20 68 61 76 65 2d 6e | 75 6c 6c 2d 64 65 73 63 |c have-n|ull-desc|
|00000300| 20 74 20 74 79 70 65 43 | 68 61 72 20 66 69 6c 65 | t typeC|har file|
|00000310| 2d 73 74 72 69 6e 67 20 | 66 69 6c 65 2d 64 65 73 |-string |file-des|
|00000320| 63 20 68 61 76 65 2d 66 | 69 6c 65 2d 64 65 73 63 |c have-f|ile-desc|
|00000330| 20 63 53 6f 75 72 63 65 | 46 69 6c 65 20 66 6f 72 | cSource|File for|
|00000340| 6d 4e 61 6d 65 20 66 69 | 6c 65 2d 6f 62 6a 20 68 |mName fi|le-obj h|
|00000350| 61 76 65 2d 66 69 6c 65 | 2d 6f 62 6a 20 6b 65 79 |ave-file|-obj key|
|00000360| 44 69 72 65 63 74 4f 62 | 6a 65 63 74 20 72 65 70 |DirectOb|ject rep|
|00000370| 6c 79 20 6b 41 45 57 61 | 69 74 52 65 70 6c 79 20 |ly kAEWa|itReply |
|00000380| 6b 41 45 4e 65 76 65 72 | 49 6e 74 65 72 61 63 74 |kAENever|Interact|
|00000390| 20 6b 41 45 4e 6f 72 6d | 61 6c 50 72 69 6f 72 69 | kAENorm|alPriori|
|000003a0| 74 79 20 6b 41 45 44 65 | 66 61 75 6c 74 54 69 6d |ty kAEDe|faultTim|
|000003b0| 65 6f 75 74 20 41 45 53 | 65 6e 64 2d 69 64 6c 65 |eout AES|end-idle|
|000003c0| 2d 66 75 6e 63 74 69 6f | 6e 20 68 61 76 65 2d 72 |-functio|n have-r|
|000003d0| 65 70 6c 79 20 6b 65 79 | 41 45 52 65 73 75 6c 74 |eply key|AEResult|
|000003e0| 20 74 79 70 65 42 6f 6f | 6c 65 61 6e 20 72 65 73 | typeBoo|lean res|
|000003f0| 75 6c 74 2d 74 79 70 65 | 20 72 65 73 75 6c 74 2d |ult-type| result-|
|00000400| 64 61 74 61 20 72 65 73 | 75 6c 74 2d 73 69 7a 65 |data res|ult-size|
|00000410| 20 74 68 72 6f 77 2d 65 | 72 72 20 61 65 2d 63 72 | throw-e|rr ae-cr|
|00000420| 65 61 74 65 2d 61 70 70 | 6c 65 2d 65 76 65 6e 74 |eate-app|le-event|
|00000430| 2d 69 6e 74 65 72 6e 61 | 6c 20 22 4b 41 48 4c 22 |-interna|l "KAHL"|
|00000440| 20 41 45 43 72 65 61 74 | 65 44 65 73 63 20 22 22 | AECreat|eDesc ""|
|00000450| 20 30 20 43 72 65 61 74 | 65 4f 62 6a 53 70 65 63 | 0 Creat|eObjSpec|
|00000460| 69 66 69 65 72 20 41 45 | 50 75 74 50 61 72 61 6d |ifier AE|PutParam|
|00000470| 44 65 73 63 20 41 45 53 | 65 6e 64 20 41 45 47 65 |Desc AES|end AEGe|
|00000480| 74 50 61 72 61 6d 50 74 | 72 20 31 20 7a 65 72 6f |tParamPt|r 1 zero|
|00000490| 70 20 65 78 74 72 61 63 | 74 2d 69 6e 74 65 72 6e |p extrac|t-intern|
|000004a0| 61 6c 20 63 68 61 72 5d | 20 32 31 29 20 41 45 44 |al char]| 21) AED|
|000004b0| 69 73 70 6f 73 65 44 65 | 73 63 5d 20 31 33 29 29 |isposeDe|sc] 13))|
|000004c0| 0a 0a 28 64 65 66 75 6e | 20 74 63 3a 72 65 6c 65 |..(defun| tc:rele|
|000004d0| 76 61 6e 74 2d 62 75 66 | 66 65 72 73 20 6e 69 6c |vant-buf|fers nil|
|000004e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 70 c2 c6 | (byte-c|ode "p..|
|000004f0| 20 1b 19 18 0b 85 2f 00 | 0b 40 1c c7 0c 21 1d 0c | ...../.|.@...!..|
|00000500| 71 88 0d 85 25 00 0c c7 | 0c 21 c8 0c 21 45 09 42 |q...%...|.!..!E.B|
|00000510| 89 11 88 0b 41 89 13 2a | 88 82 07 00 88 08 71 88 |....A..*|......q.|
|00000520| 09 2b 87 22 20 5b 6f 6c | 64 2d 62 75 66 66 65 72 |.+." [ol|d-buffer|
|00000530| 20 72 65 73 75 6c 74 20 | 6e 69 6c 20 62 6c 69 73 | result |nil blis|
|00000540| 74 20 62 75 66 66 65 72 | 20 66 69 6c 65 6e 61 6d |t buffer| filenam|
|00000550| 65 20 62 75 66 66 65 72 | 2d 6c 69 73 74 20 62 75 |e buffer|-list bu|
|00000560| 66 66 65 72 2d 66 69 6c | 65 2d 6e 61 6d 65 20 62 |ffer-fil|e-name b|
|00000570| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00000580| 5d 20 38 29 29 0a 00 00 | 00 00 00 00 00 00 00 00 |] 8))...|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00000610| 65 64 2d 72 65 61 64 2d | 72 65 67 65 78 70 20 28 |ed-read-|regexp (|
|00000620| 70 72 6f 6d 70 74 20 26 | 6f 70 74 69 6f 6e 61 6c |prompt &|optional|
|00000630| 0c 74 63 2d 65 78 69 73 | 74 2e 65 6c 63 3c 02 00 |.tc-exis|t.elc<..|
|00000640| 00 00 64 45 4c 43 45 4d | 41 43 00 00 00 00 00 00 |..dELCEM|AC......|
|00000650| 00 00 64 45 4c 43 45 4d | 41 43 00 00 00 00 00 00 |..dELCEM|AC......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a9 9d 55 67 00 00 | 05 06 00 00 01 3c 2d 73 |....Ug..|.....<-s|
|00000680| 74 72 69 6e 67 5d 20 33 | 29 29 0a 0a 28 64 65 66 |tring] 3|))..(def|
|00000690| 75 6e 20 64 69 72 65 64 | 2d 6d 61 72 6b 2d 66 69 |un dired|-mark-fi|
|000006a0| 6c 65 73 2d 72 65 67 65 | 78 70 20 28 72 65 67 65 |les-rege|xp (rege|
|000006b0| 78 70 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6d 61 72 |xp &opti|onal mar|
|000006c0| 6b 65 72 2d 63 68 61 72 | 29 20 22 5c 0a 4d 61 72 |ker-char|) "\.Mar|
|000006d0| 6b 20 61 6c 6c 20 66 69 | 6c 65 73 20 6d 61 74 63 |k all fi|les matc|
|000006e0| 68 69 6e 67 20 52 45 47 | 45 58 50 20 66 6f 72 20 |hing REG|EXP for |
|000006f0| 75 73 65 20 69 6e 20 6c | 61 74 65 72 20 63 6f 6d |use in l|ater com|
|00000700| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00000710| 01 0a 00 00 00 0a 00 00 | 00 32 00 23 49 d8 06 fc |........|.2.#I...|
|00000720| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|00000730| bf f4 ff ff 00 00 00 00 | 00 27 ce 60 00 00 00 00 |........|.'.`....|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+